home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / jpeek / inc < prev    next >
Encoding:
Text File  |  1992-08-08  |  1.2 KB  |  41 lines
  1. #! /bin/sh
  2. # $Header: /home/jerry/.bin/RCS/inc,v 1.2 92/08/09 23:26:30 jerry mh_contrib $
  3. ###    inc - front-end to MH "inc" that handles folder stack
  4. ##
  5. ##    IF YOU'RE USING A FOLDER STACK AND YOUR CURRENT FOLDER ISN'T inbox,
  6. ##    AND YOU TYPE inc, THE CURRENT FOLDER WILL BE REPLACED BY inbox.
  7. ##
  8. ##    THIS FRONT-END CHECKS YOUR FOLDER STACK.  IF YOU HAVE A STACK BUT
  9. ##    inbox ISN'T THE CURRENT FOLDER, THE SCRIPT PUSHES inbox ON THE STACK
  10. ##    BEFORE IT RUNS THE REAL inc.
  11. #
  12. #    USE AT YOUR OWN RISK.  SEEMS TO WORK, BUT IT'S YOUR RESPONSIBILITY!
  13. #    PLEASE TELL ME ABOUT BUGS AND FIXES: Jerry Peek, jerry@ora.com
  14.  
  15. mh=/usr/local/mh    # WHERE MH COMMANDS LIVE
  16.  
  17. # SHOULD CHECK FOR A +folder ARGUMENT TO inc...
  18. incargs="$*"
  19. set `$mh/folder -list`    # SHOULD USE MORE SWITCHES FOR SAFETY?
  20. case $# in
  21. 0)    echo "$0: quitting: no output from '$mh/folder -list'???" 1>&2; exit 1;;
  22. 1)    ;;    # NO FOLDER STACK; DON'T DO ANYTHING
  23. *)    case "$1" in
  24.     inbox)    ;;    # DON'T DO ANYTHING
  25.     *)    echo "$0: pushing inbox onto folder stack" 1>&2
  26.         $mh/folder -push +inbox
  27.         pushed=yes
  28.         ;;
  29.     esac
  30.     ;;
  31. esac
  32.  
  33. # IF INC RETURNS NON-ZERO AND WE PUSHED inbox ABOVE, POP IT:
  34. $mh/inc $incargs || {
  35.     case "$pushed" in
  36.     yes)    echo "$0: popping inbox" 1>&2
  37.             $mh/folder -pop
  38.             ;;
  39.     esac
  40. }
  41.